home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1992 July / Nautilus-3-8 / Nautilus-3-8.bin / Tools & Utilities / Techy Stuff / Development Environments ƒ / Perl 4.0.2 ƒ / os2 / mktemp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-01-04  |  412 b   |  29 lines
  1. /* MKTEMP.C using TMP environment variable */
  2.  
  3. #include <stdio.h>
  4. #include <stdlib.h>
  5. #include <string.h>
  6. #include <io.h>
  7.  
  8. void Mktemp(char *file)
  9. {
  10.   char fname[32], *tmp;
  11.  
  12.   tmp = getenv("TMP");
  13.  
  14.   if ( tmp != NULL )
  15.   {
  16.     strcpy(fname, file);
  17.     strcpy(file, tmp);
  18.  
  19.     if ( file[strlen(file) - 1] != '\\' )
  20.       strcat(file, "\\");
  21.  
  22.     strcat(file, fname);
  23.   }
  24.  
  25.   mktemp(file);
  26. }
  27.  
  28. /* End of MKTEMP.C */
  29.